home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / bob_hwg.inc < prev    next >
Encoding:
Text File  |  1998-08-30  |  6.1 KB  |  402 lines
  1. *---------------------------------------
  2. *
  3. *    â{âuò\Ī
  4. *
  5. *    é╠é»é╝éΦüAŃé┐üAâKü[âh
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. bob_hit:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subi.w    #16,d1
  14.     subi.w    #32,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     addi.w    #$0010,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d1
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     subi.w    #16,d1
  32.     addi.w    #16,d2
  33.     addq.w    #1,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d1
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     subi.w    #16,d1
  47.     addi.w    #16,d2
  48.     addq.w    #1,d7
  49.     move.w    d1,(a6)+
  50.     move.w    d2,(a6)+
  51.     move.w    d7,(a6)+
  52.     move.w    #$0003,(a6)+
  53.         
  54.     addi.w    #16,d1
  55.     addq.w    #1,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     subi.w    #16,d1
  62.     addi.w    #16,d2
  63.     addq.w    #1,d7
  64.     move.w    d1,(a6)+
  65.     move.w    d2,(a6)+
  66.     move.w    d7,(a6)+
  67.     move.w    #$0003,(a6)+
  68.  
  69.     addi.w    #16,d1
  70.     addq.w    #1,d7
  71.     move.w    d1,(a6)+
  72.     move.w    d2,(a6)+
  73.     move.w    d7,(a6)+
  74.     move.w    #$0003,(a6)+
  75.  
  76.     rts
  77. @@:
  78.     addi.w    #$4011,d7
  79.     move.w    d1,(a6)+
  80.     move.w    d2,(a6)+
  81.     move.w    d7,(a6)+
  82.     move.w    #$0003,(a6)+
  83.  
  84.     addi.w    #16,d1
  85.     subq.w    #1,d7
  86.     move.w    d1,(a6)+
  87.     move.w    d2,(a6)+
  88.     move.w    d7,(a6)+
  89.     move.w    #$0003,(a6)+
  90.  
  91.     subi.w    #16,d1
  92.     addi.w    #16,d2
  93.     addq.w    #3,d7
  94.     move.w    d1,(a6)+
  95.     move.w    d2,(a6)+
  96.     move.w    d7,(a6)+
  97.     move.w    #$0003,(a6)+
  98.  
  99.     addi.w    #16,d1
  100.     subq.w    #1,d7
  101.     move.w    d1,(a6)+
  102.     move.w    d2,(a6)+
  103.     move.w    d7,(a6)+
  104.     move.w    #$0003,(a6)+
  105.  
  106.     subi.w    #16,d1
  107.     addi.w    #16,d2
  108.     addq.w    #3,d7
  109.     move.w    d1,(a6)+
  110.     move.w    d2,(a6)+
  111.     move.w    d7,(a6)+
  112.     move.w    #$0003,(a6)+
  113.  
  114.     addi.w    #16,d1
  115.     subq.w    #1,d7
  116.     move.w    d1,(a6)+
  117.     move.w    d2,(a6)+
  118.     move.w    d7,(a6)+
  119.     move.w    #$0003,(a6)+
  120.  
  121.     subi.w    #16,d1
  122.     addi.w    #16,d2
  123.     addq.w    #3,d7
  124.     move.w    d1,(a6)+
  125.     move.w    d2,(a6)+
  126.     move.w    d7,(a6)+
  127.     move.w    #$0003,(a6)+
  128.  
  129.     addi.w    #16,d1
  130.     subq.w    #1,d7
  131.     move.w    d1,(a6)+
  132.     move.w    d2,(a6)+
  133.     move.w    d7,(a6)+
  134.     move.w    #$0003,(a6)+
  135.  
  136.     rts
  137. *---------------------------------------
  138. bob_win:
  139.     move.w    C_X(a1),d1
  140.     move.w    C_Y(a1),d2
  141.     subq.w    #8,d1
  142.     subi.w    #32,d2
  143.     tst.w    C_LR_F(a1)
  144.     bne    @f
  145.  
  146.     addi.w    #$0018,d7
  147.     move.w    d1,(a6)+
  148.     move.w    d2,(a6)+
  149.     move.w    d7,(a6)+
  150.     move.w    #$0003,(a6)+
  151.  
  152.     addi.w    #16,d2
  153.     addq.w    #1,d7
  154.     move.w    d1,(a6)+
  155.     move.w    d2,(a6)+
  156.     move.w    d7,(a6)+
  157.     move.w    #$0003,(a6)+
  158.  
  159.     addi.w    #16,d2
  160.     addq.w    #1,d7
  161.     move.w    d1,(a6)+
  162.     move.w    d2,(a6)+
  163.     move.w    d7,(a6)+
  164.     move.w    #$0003,(a6)+
  165.  
  166.     addi.w    #16,d2
  167.     addq.w    #1,d7
  168.     move.w    d1,(a6)+
  169.     move.w    d2,(a6)+
  170.     move.w    d7,(a6)+
  171.     move.w    #$0003,(a6)+
  172.  
  173.     rts
  174. @@:
  175.     addi.w    #$4018,d7
  176.     move.w    d1,(a6)+
  177.     move.w    d2,(a6)+
  178.     move.w    d7,(a6)+
  179.     move.w    #$0003,(a6)+
  180.  
  181.     addi.w    #16,d2
  182.     addq.w    #1,d7
  183.     move.w    d1,(a6)+
  184.     move.w    d2,(a6)+
  185.     move.w    d7,(a6)+
  186.     move.w    #$0003,(a6)+
  187.  
  188.     addi.w    #16,d2
  189.     addq.w    #1,d7
  190.     move.w    d1,(a6)+
  191.     move.w    d2,(a6)+
  192.     move.w    d7,(a6)+
  193.     move.w    #$0003,(a6)+
  194.  
  195.     addi.w    #16,d2
  196.     addq.w    #1,d7
  197.     move.w    d1,(a6)+
  198.     move.w    d2,(a6)+
  199.     move.w    d7,(a6)+
  200.     move.w    #$0003,(a6)+
  201.  
  202.     rts
  203. *---------------------------------------
  204. bob_g:
  205.     move.w    C_X(a1),d1
  206.     move.w    C_Y(a1),d2
  207.     subq.w    #8,d1
  208.     subi.w    #32,d2
  209.     tst.w    C_LR_F(a1)
  210.     bne    @f
  211.  
  212.     addi.w    #$0035,d7
  213.     move.w    d1,(a6)+
  214.     move.w    d2,(a6)+
  215.     move.w    d7,(a6)+
  216.     move.w    #$0003,(a6)+
  217.  
  218.     addi.w    #16,d2
  219.     addq.w    #1,d7
  220.     move.w    d1,(a6)+
  221.     move.w    d2,(a6)+
  222.     move.w    d7,(a6)+
  223.     move.w    #$0003,(a6)+
  224.  
  225.     addi.w    #16,d2
  226.     addq.w    #1,d7
  227.     move.w    d1,(a6)+
  228.     move.w    d2,(a6)+
  229.     move.w    d7,(a6)+
  230.     move.w    #$0003,(a6)+
  231.  
  232.     addi.w    #16,d2
  233.     addq.w    #1,d7
  234.     move.w    d1,(a6)+
  235.     move.w    d2,(a6)+
  236.     move.w    d7,(a6)+
  237.     move.w    #$0003,(a6)+
  238.  
  239.     rts
  240. @@:
  241.     addi.w    #$4035,d7
  242.     move.w    d1,(a6)+
  243.     move.w    d2,(a6)+
  244.     move.w    d7,(a6)+
  245.     move.w    #$0003,(a6)+
  246.  
  247.     addi.w    #16,d2
  248.     addq.w    #1,d7
  249.     move.w    d1,(a6)+
  250.     move.w    d2,(a6)+
  251.     move.w    d7,(a6)+
  252.     move.w    #$0003,(a6)+
  253.  
  254.     addi.w    #16,d2
  255.     addq.w    #1,d7
  256.     move.w    d1,(a6)+
  257.     move.w    d2,(a6)+
  258.     move.w    d7,(a6)+
  259.     move.w    #$0003,(a6)+
  260.  
  261.     addi.w    #16,d2
  262.     addq.w    #1,d7
  263.     move.w    d1,(a6)+
  264.     move.w    d2,(a6)+
  265.     move.w    d7,(a6)+
  266.     move.w    #$0003,(a6)+
  267.  
  268.     rts
  269. *---------------------------------------
  270. bo2_g:
  271.     move.w    C_X(a1),d1
  272.     move.w    C_Y(a1),d2
  273.     subq.w    #8,d1
  274.     subi.w    #32,d2
  275.     tst.w    C_LR_F(a1)
  276.     bne    @f
  277.  
  278.     addi.w    #$005d,d7
  279.     move.w    d1,(a6)+
  280.     move.w    d2,(a6)+
  281.     move.w    d7,(a6)+
  282.     move.w    #$0003,(a6)+
  283.  
  284.     addi.w    #16,d2
  285.     addq.w    #1,d7
  286.     move.w    d1,(a6)+
  287.     move.w    d2,(a6)+
  288.     move.w    d7,(a6)+
  289.     move.w    #$0003,(a6)+
  290.  
  291.     addi.w    #16,d2
  292.     addq.w    #1,d7
  293.     move.w    d1,(a6)+
  294.     move.w    d2,(a6)+
  295.     move.w    d7,(a6)+
  296.     move.w    #$0003,(a6)+
  297.  
  298.     addi.w    #16,d2
  299.     addq.w    #1,d7
  300.     move.w    d1,(a6)+
  301.     move.w    d2,(a6)+
  302.     move.w    d7,(a6)+
  303.     move.w    #$0003,(a6)+
  304.  
  305.     rts
  306. @@:
  307.     addi.w    #$405d,d7
  308.     move.w    d1,(a6)+
  309.     move.w    d2,(a6)+
  310.     move.w    d7,(a6)+
  311.     move.w    #$0003,(a6)+
  312.  
  313.     addi.w    #16,d2
  314.     addq.w    #1,d7
  315.     move.w    d1,(a6)+
  316.     move.w    d2,(a6)+
  317.     move.w    d7,(a6)+
  318.     move.w    #$0003,(a6)+
  319.  
  320.     addi.w    #16,d2
  321.     addq.w    #1,d7
  322.     move.w    d1,(a6)+
  323.     move.w    d2,(a6)+
  324.     move.w    d7,(a6)+
  325.     move.w    #$0003,(a6)+
  326.  
  327.     addi.w    #16,d2
  328.     addq.w    #1,d7
  329.     move.w    d1,(a6)+
  330.     move.w    d2,(a6)+
  331.     move.w    d7,(a6)+
  332.     move.w    #$0003,(a6)+
  333.  
  334.     rts
  335. *---------------------------------------
  336. bo2_hit:
  337.     move.w    C_X(a1),d1
  338.     move.w    C_Y(a1),d2
  339.     subq.w    #8,d1
  340.     subi.w    #32,d2
  341.     tst.w    C_LR_F(a1)
  342.     bne    @f
  343.  
  344.     addi.w    #$0061,d7
  345.     move.w    d1,(a6)+
  346.     move.w    d2,(a6)+
  347.     move.w    d7,(a6)+
  348.     move.w    #$0003,(a6)+
  349.  
  350.     addi.w    #16,d2
  351.     addq.w    #1,d7
  352.     move.w    d1,(a6)+
  353.     move.w    d2,(a6)+
  354.     move.w    d7,(a6)+
  355.     move.w    #$0003,(a6)+
  356.  
  357.     addi.w    #16,d2
  358.     addq.w    #1,d7
  359.     move.w    d1,(a6)+
  360.     move.w    d2,(a6)+
  361.     move.w    d7,(a6)+
  362.     move.w    #$0003,(a6)+
  363.  
  364.     addi.w    #16,d2
  365.     addq.w    #1,d7
  366.     move.w    d1,(a6)+
  367.     move.w    d2,(a6)+
  368.     move.w    d7,(a6)+
  369.     move.w    #$0003,(a6)+
  370.  
  371.     rts
  372. @@:
  373.     addi.w    #$4061,d7
  374.     move.w    d1,(a6)+
  375.     move.w    d2,(a6)+
  376.     move.w    d7,(a6)+
  377.     move.w    #$0003,(a6)+
  378.  
  379.     addi.w    #16,d2
  380.     addq.w    #1,d7
  381.     move.w    d1,(a6)+
  382.     move.w    d2,(a6)+
  383.     move.w    d7,(a6)+
  384.     move.w    #$0003,(a6)+
  385.  
  386.     addi.w    #16,d2
  387.     addq.w    #1,d7
  388.     move.w    d1,(a6)+
  389.     move.w    d2,(a6)+
  390.     move.w    d7,(a6)+
  391.     move.w    #$0003,(a6)+
  392.  
  393.     addi.w    #16,d2
  394.     addq.w    #1,d7
  395.     move.w    d1,(a6)+
  396.     move.w    d2,(a6)+
  397.     move.w    d7,(a6)+
  398.     move.w    #$0003,(a6)+
  399.  
  400.     rts
  401. *---------------------------------------
  402.